Top 10k strings from Spectrosim (1983)(Shiva Publishing).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
3 SPECTROSIM
3
2 s$(A1)="J"
2 ;"STOP THE TAPE":
2 ************
1 ype E to EDIT "+C$+B$:
1 y$+": DATA ADDRESSES";
1 y$+" PROGRAM":
1 w$="00000000":
1 rogram memory being cleared"''"Please wait":
1 q$(n)="0":
1 q$(c5,a3):
1 p$="Refer to the INSTRUCTION SET. ":
1 m$(nu)=s$:
1 m$(ni)=s$:
1 m$(n)=m$(n-A1):
1 m$(n)=m$(n+A1):
1 m$(n)=" ":
1 m$(d5,a9):
1 m$(J)(A6)=68
1 m$(J)(A5)>57
1 m$(J)(A5)=40
1 m$(J)(A4)=68
1 h$="--------------------------------":
1 d$="Type M to return to MENU "
1 c1,a0;"Type selection"
1 c1,a0;"Type I to INSPECT DATA ADDRESSES":
1 c0,a0;h$+c$:
1 c0,a0;H$+D$:
1 c0,a0;G$+P$
1 c$="Type C to CONTINUE":
1 b9,a0;h$+d$;
1 b9,a0;h$+d$+b$:
1 b9,a0;b$+b$+b$;
1 b9,a0;b$+b$
1 b9,a0;"Type number where insert is to be made, followed by
1 b9,a0;"Type number to be deleted followed by
1 b9,a0;"Type new instruction ";ni;" followed by
1 b9,a0;"Type HLT to terminate program Press
1 b9,a0;"Type E to EDIT ":
1 b9,a0;"Type A to alter instruction Type I to insert instruction Type D to delete instruction "
1 b7;(a2*n)+d5;" ";q$(a2*n):
1 b4;"****":
1 a6,a1;"REG A ="
1 a5,b4;"MENU";
1 a5,a0;"First section saved":
1 a3,a0;"Type each instruction in","numerical order and press
1 a3,a0;"The complete instruction set of the simulator is shown in the"'"accompanying booklet."''"The simulator has 50 addresses for storing the program steps (in assembler form) and 25 addresses for data storage."''"Some example programs are given in the booklet."
1 a3+n,a2;(a2*n)-a1+d5;" ";q$((a2*n)-a1);
1 a2;"9. END";
1 a2;"8. INSTRUCTIONS";
1 a2;"5. PRINTOUT PROGRAM";
1 a2;"4. SINGLE STEP PROGRAM";
1 a2;"3. RUN PROGRAM";
1 a2;"2. CHECK and EDIT PROGRAM";
1 a2;"1. LOAD PROGRAM";
1 a0;"Type S to SAVE ";Y$;
1 a0;"Type L to LOAD a new program";
1 a0;"Type D to DELETE ";y$;
1 a0;"Type C to CHECK ";Y$;
1 a0;"Third section saved"
1 a0;"Second section saved":
1 a0,c5;"RUNNING"
1 a0,a0;" ";
1 X$=m$(J)(A4):
1 X$=m$(J)(A4
1 Type M to return to MENU Z
1 Type C to CONTINUED
1 TYPE GOTO 10 TO RESTART
1 SPECTROSIMQL
1 Refer to the INSTRUCTION SET.
1 R$=m$(J)(A8)
1 R$=m$(J)(A7):
1 Q(N)=(V-NO)*A2:
1 Q$(VL-D5)=
1 P$(D5)="HLT":
1 OUT OF MEMORY
1 O$=m$(J)(A6)
1 O$=m$(J)(A6
1 N$=m$(J)(A5)
1 N$=m$(J)(A5
1 N$=Q$(VL-D5)
1 L$=m$(J)(A1
1 Is An UNKNOWN INSTRUCTION . H
1 IPT LDB,C IPT LDA,C ADD B LD(55),A HLT
1 G(N-A1)=Q(N):
1 G(N+A1)=Q(N):
1 G$="Is An UNKNOWN INSTRUCTION . ":
1 F(N)=Q(N):
1 F$="----------":
1 E(N)=Q(N):
1 DEMO J
1 Created with Ramsoft MakeTZX
1 C0,A0;"and
1 C0,A0;"Type a number between 0 and 255 followed by ";
1 C0,A0;"ONLY ADDRESSES 51 TO 75 ARE AVAILABLE FOR DATA STORAGE ":
1 B9,a0;B$+B$+D$
1 B9,a0;"Type number you wish to alter and
1 B9,a0;"Type correct instruction ";z;" ":
1 B9,A0;B$+C$+B$:
1 B9,A0;+"DATA ADDRESSES MAY ONLY BE LOADED FROM THE ACCUMULATOR "+B$:
1 B9,A0;"ONLY D REGISTER MAY BE USED FOR INDIRECTION ":
1 B9,A0;"ONLY ADDRESSES 51 TO 75 ARE AVAILABLE FOR DATA STORAGE "+B$:
1 B9,A0;"ONLY ADDRESSES 1 TO 50 ARE AVAILABLE FOR PROGRAM STORAGE "+B$:
1 B9,A0;"ONLY ACCUMULATOR MAY BE INDIRECTLY LOADED WITH DATA ":
1 B9,A0;"NUMBER MUST NOT BE GREATER THAN 255 OR LESS THAN ZERO ":
1 B9,A0;"D REGISTER MAY ONLY BE LOADED WITH DATA ADDRESSES ":
1 B8,A0;H$+B$+"Type Y to END SPECTROSIM "+D$
1 B5;" ";:
1 B2,A5;"Thank you and Goodbye":
1 A=A+(A2^(N-A1)*G(N)):
1 A9,C0;"REG D ="
1 A9,A1;"REG C ="
1 A6,c0;"REG B ="
1 A3,A0;"This program simulates the"'"action of an elementary"'"microprocessor."''"The program is written entirely in basic, hence the speed of thesimulator is very much slower than that of a real"'"microprocessor."
1 A2;"Type S,
1 A2;"FLAGS";
1 A2;"7. TAPE-LOAD PROGRAM";
1 A2;"6. SAVE PROGRAM";
1 A2,C0;" ":
1 A2+R,A0;"Instruction ";NU;
1 A2+CM,A4;m$(Z)
1 A1;"NUMBER OF STEPS ="
1 A1;"CONTENTS OF REGISTERS":
1 A0,A0;Y$;" ";
1 ;"START THE TAPE":
1 ;"Press down
1 ;"PRESS ANY KEY TO CONTINUE":
1 ;"MEMORY FULL";
1 ;"Are you sure ?"
1 ;" ";q$(c5)
1 ;" "
1 ;" ":
1 1
1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 S
1 ----------G
1 --------------------------------C
1 ,D2,-C4,-120
1 ,A0,B0,A0,-B2,106
1 ,A0,A0,160
1 ,A0,A0,-160
1 ,-D2,C4,A0,-B0,D2,-C4,A0,B0,A0,-B0,120
1 '''"Program : ";Y$
1 ''"The simulator will only accept valid instructions. The contentsof each register are displayed on the screen when the assemblerprogram is run or single stepped"
1 ''"Follow the normal procedure forSAVING on your Spectrum."
1 ''"Follow the normal procedure forLOADING on your Spectrum."
1 "is already entered.":
1 "and press
1 "Type the name of the programthat you wish to load, followedby
1 "Type program name":
1 "Type P for a PRINTOUT ":
1 "This part of SPECTROSIM willsave the current ASSEMBLERPROGRAM on tape."''"Place a blank tape in your recorder."''"The program will SAVE in threesections."
1 "This part of SPECTROSIM willload another ASSEMBLER PROGRAMfrom tape."''"Place the correct tape in yourrecorder."''"The program will LOAD in threesections."
1 "Program: ";Y$:
1 "Program: "+y$:
1 "Program ";Y$:
1 "No program entered";
1 "LOAD ";Y$:
1 "LDA","LDB","LDC","LDD","LD(","ADD","DEC","INC","CMP","JMP","JPZ","JNZ","HLT","SUB","JPC","JNC","AND","XOR","ORR","SHL","SHR","IPT","OPT","JPP","JPN","ADC","SBC"
1 "INSTRUCTION ";N;
1 "DATA ADDRESSES BEING RESET TO ZERO.";
1 ",,,,,"Non-standard instructions will be rejected.",,,,,,"Full editing is possible when the program is checked.";
1 "(up to 10 characters)":
1 to stop program";
1 to stop program "+b$
1 to step through program ":
1 to load program";
1 to continue";
1 after every entry"
1 Shiva Publishing Ltd. 1984"
1 R. HELMER
1 INSTRUCTION";
1 DO NOT TYPE RUN
1 *SPECTROSIM*
1 "+b$
1 ";
1 "+b$:
1 "+B$:
1 "+B$
1 E
1
1